From 2c902b217e238ddb7fa53827249befefe2e68259 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 3 Aug 2007 03:38:58 +0000 Subject: [PATCH] (Fvisited_file_modtime): Use make_time. --- src/fileio.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index 3859f9e35aa..1962035e0bd 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -5692,11 +5692,9 @@ file modification time, this function returns 0. See Info node `(elisp)Modification Time' for more details. */) () { - Lisp_Object tcons; - tcons = long_to_cons ((unsigned long) current_buffer->modtime); - if (CONSP (tcons)) - return list2 (XCAR (tcons), XCDR (tcons)); - return tcons; + if (! current_buffer->modtime) + return make_number (0); + return make_time ((time_t) current_buffer->modtime); } DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime, -- 2.30.2